Public Class BuildingBlock
	Inherits TcKs.MSOffice.Common.ChildObjectWrapperBase
	
	Friend Sub New ( ByVal nativeObject As Global.System.Object,  ByVal rootObject As Global.TcKs.MSOffice.Common.RootObjectWrapperBase )
		MyBase.New ( nativeObject, rootObject )
	End Sub 
	
	Public Sub Delete(  )
		MyBase.WrappedObject.Delete(  )
	End Sub 
	
	Public Function Insert( aWhere As Global.TcKs.MSOffice.Word.Range, aRichText As Global.System.Object ) As Global.TcKs.MSOffice.Word.Range
		Dim tmp_Where As Global.System.Object = Global.TcKs.MSOffice.Common.WrapperHelper.GetWrappedObjectIfCan( aWhere )
		Dim result As Global.System.Object = MyBase.WrappedObject.Insert( tmp_Where, aRichText )
		Dim ret As New Global.TcKs.MSOffice.Word.Range( result, Me.RootObject )
		Return ret
	End Function 
	
	Public ReadOnly Property Application As Global.TcKs.MSOffice.Word.Application
		Get 
			Dim ret As Global.TcKs.MSOffice.Word.Application =  Me.FindTopRootObject()
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property Creator As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Creator
		End Get 
	End Property 
	
	Public ReadOnly Property Parent As Global.System.Object
		Get 
			Return MyBase.WrappedObject.Parent
		End Get 
	End Property 
	
	Public ReadOnly Property Index As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Index
		End Get 
	End Property 
	
	Public Property Name As Global.System.String
		Get 
			Return MyBase.WrappedObject.Name
		End Get 
		Set ( ByVal Value As Global.System.String )
			MyBase.WrappedObject.Name = Value 
		End Set 
	End Property 
	
	Public ReadOnly Property Type As Global.TcKs.MSOffice.Word.BuildingBlockType
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.Type
			Dim ret As New Global.TcKs.MSOffice.Word.BuildingBlockType( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public Property Description As Global.System.String
		Get 
			Return MyBase.WrappedObject.Description
		End Get 
		Set ( ByVal Value As Global.System.String )
			MyBase.WrappedObject.Description = Value 
		End Set 
	End Property 
	
	Public ReadOnly Property ID As Global.System.String
		Get 
			Return MyBase.WrappedObject.ID
		End Get 
	End Property 
	
	Public ReadOnly Property Category As Global.TcKs.MSOffice.Word.Category
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.Category
			Dim ret As New Global.TcKs.MSOffice.Word.Category( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public Property Value As Global.System.String
		Get 
			Return MyBase.WrappedObject.Value
		End Get 
		Set ( ByVal Value As Global.System.String )
			MyBase.WrappedObject.Value = Value 
		End Set 
	End Property 
	
	Public Property InsertOptions As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.InsertOptions
		End Get 
		Set ( ByVal Value As Global.System.Int32 )
			MyBase.WrappedObject.InsertOptions = Value 
		End Set 
	End Property 
	
End Class 
